home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / 3827.ZIP / LOGOLIB.ZIP / ARC.LG next >
Encoding:
Text File  |  1990-06-12  |  145 b   |  10 lines
  1. to arc :circumf :degrees
  2. make "incr 10
  3. make "ctr 0
  4. 10 fd :circumf
  5. oflush
  6. lt :incr
  7. make "ctr :ctr + :incr
  8. if :ctr < :degrees [go 10]
  9. end
  10.